SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCRENO_CLIE_I03]    
/*-------------------------------------------------------*/    
/*---Empresa              : OFISIS S.A.                --*/    
/*---Cliente              : OFISIS                 --*/    
/*---Sistema              : Tesoreria                  --*/    
/*---M÷dulo               : Empresa                    --*/    
/*---Programa             : Grabaci÷n Letras Generadas --*/    
/*---                       por Renovaci¸n             --*/    
/*---       CTAS POR COBRAR            --*/      
/*---Script               : tcreno_clie.sql            --*/    
/*---Nombre SP            : SP_TCRENO_CLIE_I03         --*/    
/*---Desarrollado por     : Eduardo Vivar Pomiano      --*/    
/*---Fecha Creaci÷n       : 01/02/2000                 --*/    
/*---Base Datos           : Microsoft Sql Server       --*/    
/*---Versi÷n              : 7.0                        --*/    
/*---Invoca a SP          :                            --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Modificado 1 por     : Carlos Marquez Escobar     --*/    
/*---Fecha Modificaci÷n   : 24/11/2003                 --*/     
/*---Detalle Modificaci÷n : Heredar Datos Origen       --*/    
/*-------------------------------------------------------*/    

/*-------------------------------------------------------*/    
/*---Modificado 2 por     : Maribel Julca Rodriguez      --*/    
/*---Fecha Modificaci©n   : 20/04/2005                   --*/     
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/    
/*-------------------------------------------------------*/        
/*-------------------------------------------------------*/    
/*---Comentarios                                       --*/    
/*---                                                  --*/    
/*---                                                  --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Drop Proc SP_TCRENO_CLIE_I03                      --*/    
/*---Grant all on SP_TCRENO_CLIE_I03 to public         --*/     
/*---SP_HELPgo SP_TCRENO_CLIE_I03                                --*/    
/*-------------------------------------------------------*/    
 @ISCO_EMPR       TD_VC_002,     
 @ISCO_USUA_MODI  TD_VC_008_USUA,    
 @ISNO_AVAL    TD_VC_100,    
 @ISNO_DIRE_AVAL  TD_VC_100,    
 @ISNU_RUCC_AVAL  TD_VC_020,    
 @ISNU_TELE_AVAL  TD_VC_020,    
 @ISCO_CLIE    TD_VC_020,    
 @ISNU_LETR_CLIE  TD_VC_020,    
 @IDFE_RENO       TD_DT_001,    
 @IDFE_EMIS       TD_DT_001,    
 @IDFE_VENC       TD_DT_001,    
 @ISCO_MONE       TD_VC_003,    
 @INFA_TIPO_CAMB  TD_NU_015_006,    
 @INIM_TOTA       TD_NU_016_004,    
 @ISCO_BANC       TD_VC_003,    
 @ISCO_AGEN       TD_VC_003,    
 @ISNU_RENO       TD_VC_008,    
 @INNU_SECU_RENO  TD_IN_001,     
 @ISNU_ORDE_LETR  TD_IN_001,     
 @ISCO_ESTA_DOCU  TD_VC_003,    
 @ISCO_TIPO_OPER  TD_VC_003,    
 @ISDE_LUGA_GIRO  TD_VC_020,    
 @ISCO_UNID_CNTB  TD_VC_003,  
 @ISNU_UNIC_BANC  TD_VC_020,  
 @ISNU_REFE   TD_VC_020,  
 @ISNO_ENDO     TD_VC_050,  
 @ISDE_OBSE     TD_VC_100
	As
Declare     
   @VNNU_SECU   TD_IN_001,    
   @OSTI_DOCU   TD_VC_003,    
   @VSTI_CLIE TD_VC_003    
    
 Begin Tran SP_TCRENO_CLIE_I03    
    
   Select @VSTI_CLIE = T1.TI_CLIE    
   From TMAUXI_EMPR T1, TMPARA_TESO T2    
   Where T1.CO_EMPR = @ISCO_EMPR    
   And T1.TI_AUXI_EMPR = T2.CO_TIAU_CLIE    
   And T1.CO_AUXI_EMPR = @ISCO_CLIE    
   And T1.CO_EMPR = T2.CO_EMPR    
    
   Insert into TMLETR_CLIE (CO_EMPR, NU_LETR_CLIE, CO_CLIE, FE_EMIS, FE_VENC,     
 CO_MONE, FA_TIPO_CAMB, IM_TOTA, CO_BANC, CO_AGEN, NU_RENO,     
 CO_ESTA_DOCU,  CO_TIPO_OPER,  CO_UNID_CONC, NO_AVAL, NO_DIRE_AVAL,     
 NU_RUCC_AVAL, NU_TELE_AVAL, DE_LUGA_GIRO, DE_GLOS, TI_CLIE,   
 NU_UNIC_BANC, NU_REFE, NO_ENDO, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)    
   Values ( @ISCO_EMPR, @ISNU_LETR_CLIE, @ISCO_CLIE, @IDFE_EMIS, @IDFE_VENC,    
 @ISCO_MONE, @INFA_TIPO_CAMB,  @INIM_TOTA, @ISCO_BANC, @ISCO_AGEN, @ISNU_RENO,     
 @ISCO_ESTA_DOCU, @ISCO_TIPO_OPER,  @ISCO_UNID_CNTB, @ISNO_AVAL,    
 @ISNO_DIRE_AVAL, @ISNU_RUCC_AVAL, @ISNU_TELE_AVAL, @ISDE_LUGA_GIRO, @ISDE_OBSE,   
 @VSTI_CLIE, @ISNU_UNIC_BANC, @ISNU_REFE, @ISNO_ENDO, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE() )    
    
   If @@error <> 0    
      Begin    
        Rollback tran    
        Return    
      End        
    
   Exec SP_TTDOCU_CNTB_Q02 6, @OSTI_DOCU OUTPUT    
    
   Select @VNNU_SECU = ISNULL(Max(NU_SECU),0) + 1    
   From   TDKARD_DOCU    
   Where  CO_EMPR = @ISCO_EMPR    
    
   Insert Into TDKARD_DOCU (CO_EMPR, NU_SECU,CO_TIPO_DOCU, NU_DOCU_CLIE, CO_CLIE, CO_ESTA_ACTU,    
     CO_ESTA_DOCU, NU_CORR_MODI, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI )    
   Values ( @ISCO_EMPR, @VNNU_SECU , @OSTI_DOCU, @ISNU_LETR_CLIE, @ISCO_CLIE,    
     @ISCO_ESTA_DOCU,   @ISCO_ESTA_DOCU, @VNNU_SECU, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE() )      
    
   If @@error <> 0    
      Begin    
        Rollback tran    
        Return    
   End        
    
   Insert into TDRENO_CLIE (CO_EMPR, CO_UNID_CONC, CO_CLIE, NU_RENO, FE_RENO, NU_SECU, NU_ORDE_LETR,  
    NU_LETR_CLIE, CO_TIPO_DOCU, NU_DOCU_CLIE, CO_ESTA_ORIG, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)    
   Values ( @ISCO_EMPR, @ISCO_UNID_CNTB, @ISCO_CLIE, @ISNU_RENO, @IDFE_RENO, @INNU_SECU_RENO, @ISNU_ORDE_LETR,    
     @ISNU_LETR_CLIE, NULL, NULL, @ISCO_ESTA_DOCU, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE() )    
    
   If @@error <> 0    
      Begin    
        Rollback tran    
        Return    
      End        
    
Commit Tran    
    
/*------------------------- Fin ------------------------------*/


GO
